10 POKE55,.:POKE56,160:CLR
11 POKE700,15:REM BACKGROUND COLOR
12 POKE701,11:REM FOREGROUND COLOR
13 POKE702,00:REM SPRITE COLORS
14 POKE703,35:REM ZOOM/SPR/CHR ED CRSR                  ' RAISE TO SLOW, ETC.
15 GOSUB63000:A=16194:B=256:PRINT"[144]P[207]44,A/B:P[207]43,A-P[197](44)*B:P[207]A-1,.:NEW"
20 PRINT"L[207]"CHR$(34)"HRS2.LOADER"CHR$(34)","PEEK(186)"":PRINT"R[213]";
30 POKE198,3:POKE631,13:POKE632,13:POKE633,13:END
40 '
50 ' LINES 11-14 CONTAIN DEFAULT VALUES
60 '
75 ' YOU CAN TEMPORARILY CHANGE THESE
80 ' VALUES BEFORE YOU RUN THIS PROGRAM
85 ' OR CHANGE AND RUN LINE 100 FOR A
90 ' PERMANENT ALTERATION.
95 '
100 IFPEEK(186)<8THENPOKE186,8
110 D=PEEK(186):N$="B.HIRES SKETCH 2":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
63000 DV=PEEK(186):IFDV<8THENDV=8
63010 DELAY=116:POKE53280,0:POKE53281,0
63020 PRINT"[147]";
63030 FORI=11TO23:PRINT"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:NEXT
63035 PRINT"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223]"
63040 PRINT"":FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
63050 POKE214,10:PRINT"[145]"TAB(2)"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
63060 FORI=1TO11:PRINTTAB(2)"[159]                                    [155][146][223]":NEXT
63070 PRINTTAB(2)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][155][223]"
63080 PRINT"[155][169][169][169][169][169][169][169][151][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223]"
63085 POKE214,24:POKE211,38:SYS58732:PRINTCHR$(148);:POKE646,1:PRINT"[223]"
63090 POKE214,11:PRINT"[145][159]";
63100 FORI=1TO11:READA$
63110 PRINTSPC(20-LEN(A$)/2)""A$:A$="":NEXT
63120 DELAY=DELAY+1:J=PEEK(56320)AND16:GETA$:IF(A$="")ANDJ<>0ANDDEL<116THEN63120
63130 RETURN
63140 DATA"[200] [201] - [210] [197] [211]   [211] [203] [197] [212] [195] [200]   [201] [201]","BY [193]NDREW [205]ARTIN
63150 [131]"  (LEN)1996 BY MID$&ASC (null)UBLISHING, RIGHT$NC."
63160 [131]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
63170 DATA"   [212]HIS IS THE COPYRIGHTED WORK OF
63180 [131]"MID$&ASC (null)UBLISHING, RIGHT$NC., (null)(null)(null) INTENDED
63190 DATA"FOR DISTRIBUTION AS PUBLIC DOMAIN ","OR SHAREWARE.  [198]OR INFORMATION ON
63200 [131]"(null)(null)ATNSTR$(null)(null)ATN(null) AND (null)(null)ATNSTR$(null)(null)ATN(null) PRODUCTS,   "
63210 [131]"CALL (null)(null)ATNSTR$(null)(null)ATN(null) LENUSTOMER SERVICE AT"
63220 [131]"1-800-594-3370 OR 1-318-221-8718